home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 83 / 64er_Magazin_Sonderheft_83_19xx_Markt__Technik_de_Side_A.d64 / ultramenu tool (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  868b  |  22 lines
  1. 100 rem *** ultramenue tool
  2. 110 rem *** 1992 martin pfost
  3. 120 rem *** (c) 1992 heureka teachware
  4. 130 input "==> [198]ilename ";n$
  5. 140 input "==> [211]tartadresse ";a:h=int(a/256):l=a-256*h
  6. 150 print "==> entsprechende [196]iskette einlegen !":poke 198,0:wait 198,1
  7. 160 open 2,8,2,n$
  8. 170 get#2,a$:if a$="" then a$=chr$(0)
  9. 180 get#2,b$:if b$="" then b$=chr$(0)
  10. 190 print " [193]nfangsadresse des [198]iles :";asc(a$)+256*asc(b$):close 2
  11. 200 open 2,8,2,"bt,p,w":gosub 240:print#2,a$;:gosub 240
  12. 210 print#2,b$;:gosub 240:print#2,chr$(l);chr$(h);chr$(96);
  13. 220 close 2:if c<>8466 then print "??? [196]ata-[198]ehler !":stop
  14. 230 open 1,8,15,"c:."+n$+"=bt,"+n$:print#1,"s:bt":close 1:end
  15. 240 read d:if d=4 then return
  16. 250 print#2,chr$(d);:c=c+d:goto 240
  17. 260 rem *** verschieberoutine
  18. 270 data1,8,12,8,194,7,158,32,50,48,54,50,0,0,0,169,76,133,168,169,8,133,169
  19. 280 data169,4,133,170,169,4,133,171,160,0,177,168,145,170,230,168,208
  20. 290 data2,230,169,230,170,208,2,230,171,165,168,197,45,208,234,165,169,197
  21. 300 data46,144,228,172,78,3,185,255,1,41,16,240,3,76,4
  22.